R-Studio es un entorno de desarrollo integrado que hace más fácil el trabajo con R.

Es una aplicación informática que proporciona servicios integrales para facilitar la programación y desarrollo del software R.

R-Studio está disponible de manera gratuita para Windows, MacOS y Linux o para navegadores conectados a RStudio Server.

Nos proporciona una mejor visualización de los datos y gráficas en el área de trabajo.

Podemos crear fácilmente páginas web que incluyen código de R, así como también pueden insertarse fórmulas escritas con latex.

##R-Studio

x <- -11
if(x > 0){
  print("x es pos") 
}else if(x < 0){
  print("x es neg")
}else{
  print("x es cero")
}

## [1] "x es neg"

x <- 0
if(x > 0){
  print("x es pos") 
}else if(x < 0){
  print("x es neg")
}else{
  print("x es cero")
}

## [1] "x es cero"

x <- 5
if(x > 0){
  print("x es pos") 
}else if(x < 0){
  print("x es neg")
}else{
  print("x es cero")
}

## [1] "x es pos"

y <- 10
ifelse(x >= y, x + y, x - y)

## [1] -5

y <- 5
ifelse(x >= y, x + y, x - y)

## [1] 10

y <- -15
ifelse(x >= y, x + y, x - y)

## [1] -10

for(i in 1:3){
  print(i)
}

## [1] 1
## [1] 2
## [1] 3

data("iris")
dim(iris)

## [1] 150   5

head(iris, n = 3)

##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa
## 3          4.7         3.2          1.3         0.2  setosa

for(j in 2:4){
  print(sd(iris[ , j]))  
}

## [1] 0.4358663
## [1] 1.765298
## [1] 0.7622377

sd(iris[ , 2])

## [1] 0.4358663

x <- c(10, 1000, 100000)
for(k in 1:3){
  y <- rnorm(x[k], mean = 5, sd = 1)
  cat("La media muestral para los ", x[k], "es", mean(y), "\n")
}

## La media muestral para los  10 es 5.076394 
## La media muestral para los  1000 es 4.998057 
## La media muestral para los  1e+05 es 4.996939

z <- 5
while(z > 2){
  cat(z, " no es menor que 2 \n\n")
  z <- z - 1
}

## 5  no es menor que 2 
## 
## 4  no es menor que 2 
## 
## 3  no es menor que 2

x <- c("Monica", "Daniel", "Erwin", "Marco", "Gabriel") ; i <- 1
repeat{
  print(paste("Hola ", x[i]))
  if(x[i] == "Marco") break
  i <- i + 1
}

## [1] "Hola  Monica"
## [1] "Hola  Daniel"
## [1] "Hola  Erwin"
## [1] "Hola  Marco"

• Hacer bucles for, while es muy útil cuando se programa, pero no resulta especialmente sencillo cuando se trabaja interactivamente con la línea de comando.
• Es por ello que hay algunas funciones que implementan bucles de manera vectorial para hacer el trabajo más sencillo.
• Estos bucles resultan ser más rapidos en tiempo de maquina que los bucles for, while.

sapply(iris, class)

## Sepal.Length  Sepal.Width Petal.Length  Petal.Width      Species 
##    "numeric"    "numeric"    "numeric"    "numeric"     "factor"

head(iris, n = 2)

##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa

sapply(iris[, 1:4], mean)

## Sepal.Length  Sepal.Width Petal.Length  Petal.Width 
##     5.843333     3.057333     3.758000     1.199333

• Se almacenan como cualquier otro objeto, pero el objeto será de clase function
• Pueden pasarse como argumentos de otras funciones.
• Pueden anidarse, esto es, definir funciones dentro de funciones.
• Devuelven el valor de la última expresión, a menos que aparezca una indicación explícita con return().
• Las llamadas a las funciones de R no tienen que utilizar todos los argumentos. Algunos pueden ser quedar faltantes y otros tener valores por defecto.

fact <- function(x){
  if(x == 0){
    return(1)
  }else{
    x*fact(x - 1)
  }
}
fact(0)

## [1] 1

fact(3)

## [1] 6

fact <- function(x){
  if(x >= 0){
    if(x == 0){
      return(1)
    }else{
      x*fact(x - 1)
    }
  }else{
    cat("El numero ingresado debe ser un entero no negativo")
  }
}
fact(-7)

## El numero ingresado debe ser un entero no negativo

https://github.com/RStudioFournier/UAM.git